home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr23 / crscapv1.zip / CRSCAP.WAS next >
Text File  |  1995-01-15  |  6KB  |  115 lines
  1. ; CRSLOGIN.WAS   v1.00  CRS Login script for Procomm Plus for Windows v2.00
  2. ;****************************************************************************
  3. ;*                                                                          *
  4. ;* CRSLOGIN.WAS                                                             *
  5. ;* Copyright (C) Mike Pizzey                                                *
  6. ;* All rights reserved                                                      *
  7. ;*                                                                          *
  8. ;* This script logs in a user to CRS and gives the user the option of       *
  9. ;* capturing file lists to the default capture directory. It is for use     *
  10. ;* with IBM or compatibles since it takes you to the IBM Conference by      *
  11. ;* default. 
  12. ;*                                                                          *
  13. ;* This ASPECT SCRIPT is intended only as a sample of ASPECT programming.   *
  14. ;* Mike Pizzey makes no warranty of any kind, express or implied, including *
  15. ;* without limitation, any warranties of merchantability and/or fitness     *
  16. ;* for a particular purpose.  Use of this program is at your own risk.      *
  17. ;****************************************************************************
  18.  
  19. ;****************************************************************************
  20. ;*       <<<<IMPORTANT - THIS SCRIPT MUST BE MODIFIED BEFORE USE>>>>        *
  21. ;* Please modify as indicated in the first comment which appears in this    *
  22. ;* file before use to avoid frustration. The second modification suggested  *
  23. ;* in the second comment section of this file is optional.                  *
  24. ;****************************************************************************
  25.  
  26. ;****************************************************************************
  27. ;*                                                                          *
  28. ;*      INSTRUCTIONS FOR USE OF THIS SCRIPT                                 *
  29. ;*                                                                          *
  30. ;*    1. Copy this file to your PROWIN - ASPECT script directory.         *
  31. ;*    2. Use the ASPECT editor which is part of PROCOMM to edit           *
  32. ;*       the SCRIPT as detailed in the first comment which appears        *
  33. ;*       later in this file.                                              *
  34. ;*    3. Open your directory and select this SCRIPT - "CRSCAP.WAS"        *
  35. ;*       as the script that is associated with your CRS Entry.            *
  36. ;*    4. Then press the setup button and select the option which          *
  37. ;*       says "Start script when connection is made".                     *
  38. ;*    5. The next time you call your login will be automated except       *
  39. ;*       for your password for obvious reasons.                           *
  40. ;*                                                                          *
  41. ;****************************************************************************
  42.  
  43.  
  44. proc main
  45.     integer Choice
  46.     Choice == 0
  47.     
  48.    waitfor "Enter Language # to use (Enter)=no change? "
  49.    transmit "^M"
  50.    waitfor "Do you want graphics (Enter)=no? "
  51.    transmit "^M"
  52.    waitfor "What is your first name? "
  53.  
  54. ;****************************************************************************
  55. ;*    FIRST COMMENT MODIFICATION                                          *
  56. ;*    The line below this comment box must be edited by replacing the     *
  57. ;*    words "Your Name" with you guessed it your name. This is the name   *
  58. ;*    that you use to log on to CRS. DO NOT ERASE THE ^M OR THE QUOTES.   *
  59. ;*    When done the line should appear as in the example shown            *
  60. ;*    as follows:                                                         *
  61. ;*                                                                          *
  62. ;*        transmit "John Smith^M"                                     *
  63. ;*                                                                          *
  64. ;*    The script will work once this modification has been made.          *
  65. ;*                                                                          *
  66. ;*    The second modification documented in the comment below             *
  67. ;*    is optional.                                                        *
  68. ;*                                                                          *
  69. ;****************************************************************************
  70.  
  71.    transmit "Your Name^M"
  72.  
  73.    waitfor "Scan Message Base Since 'Last Read' (Enter)=yes? "
  74.    transmit "n^M"
  75.    waitfor " Main Board Command? "
  76.    transmit "J 2^M"
  77.    waitfor "Scan Message Base Since 'Last Read' (Enter)=yes? "
  78.    transmit "n^M"
  79.    waitfor " IBM (2) Conference Command? "
  80.  
  81.      sdlgmsgbox "" "CAPTURE FILE LISTS??" QUESTION YESNO Choice 2
  82.     if Choice == 6
  83.  
  84. ;****************************************************************************
  85. ;* SECOND COMMENT MODIFICATION - optional                                   *
  86. ;* The line below must be edited by replacing the numbers "398 399" with    *
  87. ;* the numbers of the directories you wish to capture.                      *
  88. ;****************************************************************************
  89.  
  90.         transmit "F N 398 399 NS^M"
  91.  
  92.          waitfor "Date as (mmddyy) to search from (Enter)=?"
  93.         capture on
  94.         waitfor "(H)elp, (1-399), File List Command? "
  95.         transmit "^M"
  96.     else
  97.     endif
  98.  
  99. call Lgoff
  100. endproc
  101.  
  102. proc Lgoff
  103.     integer Choice
  104.     Choice == 0
  105.     waitfor " IBM (2) Conference Command? "
  106.     sdlgmsgbox "" "LOG OFF??" QUESTION YESNO Choice 2
  107.     if Choice == 6
  108.         capture off
  109.         transmit "G^M"
  110.     else
  111.         capture off
  112.     endif
  113. endproc
  114.  
  115. ;*        END OF SCRIPT